Private Sub UserForm_Initialize()

    Dim û As Range

    Set û = Range("B3", Cells(Rows.Count, "B").End(xlUp))

    With ListBox1
        .List = û.Value
        .MultiSelect = fmMultiSelectMulti
    
        Label2.Caption = " : " & .ListCount
    End With
    
    Label4.Caption = ""
    ListBox2.MultiSelect = fmMultiSelectMulti
    
End Sub
